home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 178 / 178.d81 / b.name wheel (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  37 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 8 poke53371,0
  3. 10 poke53281,0:poke53280,0:print"[147]"chr$(142)
  4. 20 print"[129]     the mighty loadstar name wheel[154]"
  5. 100 poke19,65:input"name: [155]";n$:poke19,0
  6. 104 rem  open4,4:cmd4:pr=1:rem de-rem       this line for printer
  7. 106 forj=0to25
  8. 108 printj;
  9. 110 fori=1tolen(n$)
  10. 120 c=asc(mid$(n$,i,1))
  11. 130 ifc=32then150
  12. 140 c=c+j:ifc>90thenc=c-26
  13. 150 printchr$(c);
  14. 160 next
  15. 170 ifj<25thenprint
  16. 180 next:ifprthenprint#4:close4
  17. 190 print""
  18. 200 printtab(30)"[154](1[154]) new[157][157][157]name
  19. 202 [153][163]30)"(2cont) samecmdcmdcmdcmdname
  20. 204 printtab(30)"(3[154]) back[157][157][157][157]to ls
  21. 210 [161]a$:[139]a$[178]""[167]210
  22. 220 [139]a$[178]"1"[167][138]
  23. 230 [139]a$[178]"2"[167][153]"loadlist";:[137]104
  24. 240 [139]a$[178]"3"[167]40000
  25. 250 [137]210
  26. 10000 d[178][194](186):n$[178]"0:b.name wheel":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  27. 40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  28. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  29. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  30. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  31. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  32. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  33. 40060 [130]:[142]
  34. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  35. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  36. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  37.